home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / EXCEPT / TRY3.DPR < prev    next >
Encoding:
Text File  |  1996-01-05  |  228 b   |  14 lines

  1. program try3;
  2. uses SysUtils, Dialogs, Hex;
  3.  
  4. var i: LongInt;
  5. begin
  6.   try
  7.     i := HexVal('GOOD');
  8.     ShowMessage('We will never get here!')
  9.   except
  10.     on E: EHexValError do
  11.       ShowMessage(E.Message)
  12.   end
  13. end.
  14.